home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / WINDOWS / WB_33C.ARJ / @NETTEST.WB$ next >
Text File  |  1992-05-21  |  22KB  |  517 lines
  1. ; Network Investigator.
  2. ; This WBT file is an attempt to throw various WinBatch and WinBatch Network
  3. ; Extender commands at a network, keep track of results, and make a report.
  4.  
  5. ; The problem being that there are so many networks, and versions of
  6. ; networks that a generic command set as implemented by WinBatch must be
  7. ; able to at least survive any conceivable contingency.
  8.  
  9. ; With older version of products, the ability of this WBT file to survive
  10. ; all errors is compromised.  It actually runs best with unreleased 
  11. ; versions of WinBatch.  But such is life.  We still need feedback to
  12. ; make it better.
  13.  
  14.  
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16.  
  17.  
  18. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19. ;  First we initialize a few variable we use here and there
  20.  
  21.  
  22. ; Secondary Server is used to try NetAttach/NetLogin/NetLogout commands
  23. ; You may wish to modify the code to actually login, etc to these servers
  24. SecServer="XYZZY"
  25.  
  26.  
  27. RsltFile=strcat(DirGet(),"NETRSLT.TXT")    ; Get fully qual file name
  28. ErrorMode(@off)
  29. FileDelete(RsltFile)                       ; Delete it
  30. ErrorMode(@Cancel)
  31.  
  32.  
  33. Debug(0)
  34. Results=""
  35. CR=strcat(num2char(13),num2char(10))
  36. NI="Network Investigator"
  37.  
  38. N0="No"
  39. N256="MSNetwork"
  40. N512="LanManager"
  41. N768="Novell"
  42. N1024="BanyanVines"
  43. N1280="10Net"
  44.  
  45. Rslt0="FAILED"
  46. Rslt1="PASSED"
  47.  
  48. NOT0="not "
  49. NOT1=""
  50.  
  51. YesNo0="NO"
  52. YesNo1="YES"
  53.  
  54. OhNo=0
  55.  
  56. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  57. ; Now set set a flag for each command to keep track of whether or
  58. ; not it worked.  Initialize all flags to untested.
  59. XNetMapRoot=2
  60. XNetMsgAll=2
  61. XNetMsgSend=2
  62. XNetLogin=2
  63. XNetLogout=2
  64. XNetMemberGet=2
  65. XNetMemberSet=2
  66. XNetAttach=2
  67. XNetDetach=2
  68. XNetAddCon=2
  69. XNetCancelCon=2
  70. XNetGetCon=2
  71. XNetBrowse=2
  72. XNetDialog=2
  73. XNetGetCaps=2
  74. XNetGetUser=2
  75.  
  76.  
  77. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  78. ; First we try to figure out if the current Command Extender is a
  79. ; Wilson WindowWare or a NDW product
  80.  
  81. ExtManu="?? NO ??"
  82. ExtName=strupper(IntControl(10,3,0,0,0))
  83. if ExtName=="WWWDNETX.DLL" then EC="W"
  84.                            then ExtManu="WWW"   ; Extender by Wilson WindowWare
  85. if ExtName=="COMMEXT.DLL" then EC="N"
  86.                           then ExtManu="NDW"    ; Extender by Symantec/Peter Norton
  87.  
  88.  
  89. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  90. ; Prompt for server name.  Remember what it is.
  91.  
  92. Msg1="Please run this batch file, and then%CR%look at the NETRSLT.TXT file."
  93. Msg1=strcat(Msg1,CR,"Enter name of file server")
  94. Serverx=IniReadPvt(NI,"Server","","WWW-PROD.INI")
  95. Server=AskLine("%NI% using %ExtManu% extender",Msg1,Serverx)
  96. if Server!=Serverx then IniWritePvt(NI,"Server",Server,"WWW-PROD.INI")
  97.  
  98.  
  99.  
  100.  
  101. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  102. ; First of all, check for presence and/or proper installation of extender DLL
  103. ; and related pertainent data
  104.  
  105. a=IntControl(10,0,0,0,0)
  106. if a==1 then Results="Network Command Extender found"
  107.         else Results="No Command Extender Found"
  108.         else goto showinfo
  109.  
  110. a=IntControl(10,1,0,0,0)
  111. if a==0  then Results=strcat(Results,CR,"But it is not compatible")
  112.          then goto showinfo
  113.          else Results=strcat(Results,CR,"Extender Ver %a%")
  114.  
  115. a=IntControl(10,2,0,0,0)
  116. Results=strcat(Results," ","Interface Ver %a%")
  117.  
  118. Results=strcat(Results,CR,"Extender file is %ExtName% by %ExtManu%")
  119.  
  120.  
  121.  
  122.  
  123.  
  124. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  125. ; This is out First NetGetCaps command.  Be ready to recover.
  126. ; We have a *lot* of extra code around the net commands the first time
  127. ; we execute each one so that if the command is flat out not supported by
  128. ; your network, at least the batch file continues to run.
  129. ; We will just comment the extra stuff once here to let you know what is
  130. ; going on
  131.  
  132. LastError()                       ; Make sure current error code = 0
  133. TestNet="NetGetCaps"              ; Set a variable so we're testing
  134. ErrorMode(@OFF)                   ; Disable errors
  135. NetNum=NetGetCaps(2)              ; Do the network command
  136. ErrorMode(@CANCEL)                ; Re-enable errors
  137. e=LastError()                     ; Capture the last error code
  138. If e==1175 then XNetGetCaps=0     ; If it was 1175, then unsupported command
  139.            then goto showinfo     ; NO NetGetCaps?  Give up, print report
  140. if e!=0    then goto UHOH         ; Other error occurred.  Give up
  141. XNetGetCaps=1                     ; NetGetCaps supported
  142.  
  143.  
  144.  
  145.  
  146. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  147. ; Based on the results of the NetGetCaps command, determine what kind
  148. ; of network we have here
  149.  
  150. NetName="Other"
  151. if IsDefined(N%NetNum%) then NetName=N%NetNum%
  152.                         then Results=strcat(Results,CR,NetName," Network Installed")
  153.                         else Results=strcat(Results,CR,"Unknown network installed")
  154. if NetNum==0 then goto ShowInfo      ; No network.  Go home
  155.  
  156.  
  157. ; Pick out some available generic info.  Sometimes these numbers look
  158. ; better in HEX
  159. Results=strcat(Results,CR,"Net Driver Spec Number:    ",NetGetCaps(1))
  160. Results=strcat(Results,CR,"Net Driver Version Number: ",NetGetCaps(3))
  161.  
  162.  
  163. ; What kind of connection support does this network support
  164. a=NetGetCaps(6)
  165. Results=strcat(Results,CR,"Connection Support: (%a%)  ")
  166. if a&1 then Results=strcat(Results,"Add ")
  167.        then XNetAddCon=1
  168. if a&2 then Results=strcat(Results,"Can ")
  169.        then XNetCancelCon=1
  170. if a&4 then Results=strcat(Results,"Get ")
  171.        then XNetGetCon=1
  172. if a&8 then Results=strcat(Results,"Auto ")
  173. if a&16 then Results=strcat(Results,"Browse ")
  174.         then XNetBrowse=1
  175.  
  176. ; And what kind of print support is there
  177. a=NetGetCaps(7)
  178. Results=strcat(Results,CR,"Print Support: (%a%)  " )
  179. if a&2    then Results=strcat(Results,"Open ")
  180. if a&4    then Results=strcat(Results,"Close ")
  181. if a&16   then Results=strcat(Results,"Hold ")
  182. if a&32   then Results=strcat(Results,"Rlse ")
  183. if a&64   then Results=strcat(Results,"Can ")
  184. if a&128  then Results=strcat(Results,"Copies ")
  185. if (a>255) then Results=strcat(Results,CR,"        ")
  186. if a&256  then Results=strcat(Results,"Watch ")
  187. if a&512  then Results=strcat(Results,"UnWatch ")
  188. if a&1024 then Results=strcat(Results,"Lock ")
  189. if a&2048 then Results=strcat(Results,"Unlock ")
  190. if a&4096 then Results=strcat(Results,"QNotify ")
  191. if a&8192 then Results=strcat(Results,"Abort ")
  192.  
  193.  
  194.  
  195. ;;;;;;;;;;; Check for required files, etc here ;;;;;;;;;;;;
  196. ; Now that we've determined what brand-name extender we have and
  197. ; what kind of network we're talking to, make sure the required
  198. ; files for that particular combination are present on this system.
  199.  
  200. :CheckDaFiles
  201.  
  202. dll=ExtName
  203. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  204.  
  205. goto X%NetName%        ;Wow! a computed goto
  206.  
  207.  
  208. :XMSNetwork
  209. ; No idea what files this network needs...
  210. goto filchkdone
  211.  
  212. :XLanManager
  213. dll="%EC%LANMAN.DLL"
  214. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  215. dll="NETAPI.DLL"
  216. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  217. goto filchkdone
  218.  
  219. :XNovell
  220. dll="%EC%NOVELL.DLL"
  221. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  222. dll="NWCONN.DLL"
  223. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  224. dll="NWCORE.DLL"
  225. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  226. dll="NWMISC.DLL"
  227. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  228. goto filchkdone
  229.  
  230.  
  231. :XBanyanVines
  232. dll="%EC%BANYAN.DLL"
  233. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  234. dll="VNSAPI.DLL"
  235. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  236. goto filchkdone
  237.  
  238. :X10Net
  239. dll="%EC%10NET.DLL"
  240. if !FileExist(dll) then Results=strcat(Results,CR,"Required File Missing -->",dll)
  241. goto filchkdone
  242.  
  243.  
  244. :XOther
  245. NetInfo=AskLine(NI,"Hmmm.  Unfamiliar network.  Please enter Network type and version number","")
  246. Results=strcat(Results,CR,"NetInfo: ",NetInfo)
  247. goto filchkdone
  248.  
  249. :filchkdone
  250. ; If any files missing, go home.
  251. a=Strindex(Results,"File Missing",0,@FWDSCAN)
  252. if a!=0 then goto showinfo
  253.  
  254.  
  255. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  256. ; OK so far we survived the NetGetCaps command and verified the presence
  257. ; all required files to make this thing work.
  258. ; Now we try the infamous NetGetUser function.
  259.  
  260. LastError()                          ; Make sure current error code = 0
  261. TestNet="NetGetUser"                 ; Set a variable so we're testing
  262. ErrorMode(@OFF)                      ; Disable errors
  263. UserName=NetGetUser()                ; Do the network command
  264. ErrorMode(@CANCEL)                   ; Re-enable errors
  265. e=LastError()                        ; Capture the last error code
  266. XNetGetUser=0                        ; Set support code to 0
  267. if (e!=0 && e!=1175) then goto UHOH  ; Other error occurred.  Give up
  268. if e==0 then XNetGetUser=1           ; GetUserName supported
  269.         else UserName="<UNSUPTD>"    ; Make up a user name
  270.               
  271.  
  272. Results=strcat(Results,CR,"Server name = %Server%  UserName = %UserName%")
  273.  
  274.  
  275.  
  276. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  277. ; OK, now we try the NetMsgSend command to ourself.
  278. Message("Starting NetMsgSend Test","Clear any pending net messages now")
  279.  
  280. LastError()                         ; Clear last error if any
  281. TestNet="NetMsgSend"                ; Command under observation
  282. ErrorMode(@OFF)                     ; Disable errors
  283.                                     ; and the command in question
  284. a=NetMsgSend(Server,UserName,"Network Test.  Please ignore this message")
  285. ErrorMode(@CANCEL)                  ; Re-enable errors
  286. Delay(3)                            ; Let them hit OK
  287. e=LastError()                       ; Look at last error
  288. XNetMsgSend=0                       ; Set support code to 0
  289. if (e!=0 && e!=1213) then goto UHOH ; NON-1213 error occurred
  290. If e==0 then XNetMsgSend=1          ; It's supported
  291.         else a=0                    ; Hmmm 1213 error, fail this command
  292. Results=strcat(Results,CR,"NetMsgSend to current server ",Rslt%a%)
  293.  
  294. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  295. ; OK, now we try the NetMsgAll command to everybody (and second cousins).
  296. Message("Starting NetMsgAll Test","Clear any pending net messages now")
  297.  
  298.  
  299. LastError()                         ; The usual
  300. TestNet="NetMsgAll"                 ; Looking at NetMsgAll now
  301. ErrorMode(@OFF)                     ; Disable errors
  302.  
  303. ; Alternate message by soon-to-be former employee commented out
  304. ;a=NetMsgAll(Server,"Help! I'm locked in the net room. Plz call security!")
  305.                                     ; Try NetMsgAll
  306. a=NetMsgAll(Server,"Network Testing.  Please ignore this message.")
  307. Delay(3)                            ; Let them hit OK
  308. ErrorMode(@CANCEL)                  ; Re-enable errors
  309. e=LastError()
  310. XNetMsgAll=0                        ; Set support code to 0
  311. if (e!=0 && e!=1213) then goto UHOH ; Ooop....unknown error...byebye
  312. If e==1213 then a=0
  313.            else XNetMsgAll=1        ; NetMsgAll supported, but does it work
  314. Results=strcat(Results,CR,"NetMsgAll to current server ",Rslt%a%)
  315.  
  316.  
  317. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  318. ; Now we take a whack at the "NetMemberGet" command
  319.  
  320. LastError()                            ; Clear last error flag
  321. TestNet="NetMemberGet"                 ; Today, class, we're testing NMG
  322. ErrorMode(@OFF)                        ; Disable errors
  323. a=NetMemberGet(Server,"NOBODYATALL")   ; Well, is current user a member of...
  324. ErrorMode(@CANCEL)                     ; re-enable errors
  325. XNetMemberGet=0                        ; Set support code to 0
  326. e=LastError()                          ; Get Last Error
  327. if (e!=0 && e!=1213) then goto UHOH    ; Ooops.  Gotta run...bye
  328. If e==1213 then Results=strcat(Results,CR,"NetMemberGet unsupported")
  329.            else XNetMemberGet=1        ; Command apparently supported
  330.            else Results=strcat(Results,CR,"User %UserName% is ",NOT%A%,"a member of group NOBODYATALL")
  331.            else a=NetMemberGet(Server,"EVERYONE")        ;  Lets try again for those Novell fellows
  332.            else Results=strcat(Results,CR,"User %UserName% is ",NOT%A%,"a member of group EVERYONE")
  333.  
  334. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  335. ; Now we take a whack at the "NetMapRoot" command
  336.  
  337. if NetNum!=768 then goto NA            ; Only try this on Novell networks
  338. a=AskYesNo(NI,"Shall we try a NetMapRoot command?%CR%Choose ""NO"" if it failed last time")
  339. if a==@NO then goto NA
  340.  
  341. ; First, grab an available local drive
  342. a=DiskScan(0)                          ; Get list of unassigned drives
  343. if strlen(a)<3 then message(NI,"No local drives avail to test NetMapRoot")
  344.                then goto NA
  345. locdrv=strsub(a,1,2)                   ; Get a local drive
  346. if XNetBrowse==0 then message(NI,"Cannot browse net to test NetMapRoot")
  347.                  then goto NA
  348. Message(NI,"After this message, choose a net directory%CR%to try a NetMapRoot command on")
  349. path=NetBrowse(0)
  350. if path=="" then message(NI,"No net dir selected, bypassing NetMapRoot Test")
  351.  
  352. LastError()                            ; Clear error codes
  353. TestNet="NetMapRoot"                   ; Working on NetMapRoot now
  354. ErrorMode(@OFF)                        ; Disable errors
  355. a=NetMapRoot(locdrv,path)              ; Try NetMapRoot
  356. ErrorMode(@CANCEL)                     ; Re-enable errors
  357. XNetMapRoot=0                          ; Set support code to 0
  358. e=LastError()                          ; get last error code
  359. if (e!=0 && e!=1213) then goto UHOH    ; Ooop.  Bye
  360. If e==1213 then a=0                    ; Not supported/failed
  361.            else XNetMapRoot=1          ; Supported
  362. Results=strcat(Results,CR,"NetAttach to server %SecServer% ",Rslt%a%)
  363.  
  364. ; Kill above connection
  365.  
  366. if (XNetCancelCon==0 && a==1) then Message(NI,"Cannot undo NetMapRoot due to%CR%unsupported NetCancelCon command")
  367.                     then goto NA
  368.  
  369. if a==1 then NetCancelCon(locdrv,0)
  370.  
  371. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  372. ; Now we take a whack at the "NetAttach" command
  373. :NA
  374. LastError()                            ; Clear error codes
  375. TestNet="NetAttach"                    ; Working on NetAttach now
  376. ErrorMode(@OFF)                        ; Disable errors
  377. a=NetAttach(SecServer)                 ; Attempt attach to another server
  378. ErrorMode(@CANCEL)                     ; Re-enable errors
  379. XNetAttach=0                           ; Set Support code to 0
  380. e=LastError()                          ; get last error code
  381. if (e!=0 && e!=1213) then goto UHOH    ; Ooop.  Bye
  382. If e==1213 then a=0                    ; Not supported/failed
  383.            else XNetAttach=1           ; Supported
  384. Results=strcat(Results,CR,"NetAttach to server %SecServer% ",Rslt%a%)
  385.  
  386.  
  387. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  388. ; Now we take a whack at the "NetLogin" command
  389.  
  390. LastError()                            ; Clear error codes
  391. TestNet="NetLogin"                     ; Working on NetLogin now
  392. ErrorMode(@OFF)                        ; Disable errors
  393. a=NetLogin(SecServer,UserName,"")      ; Attempt login to new server
  394. ErrorMode(@CANCEL)                     ; Re-enable errors
  395. XNetLogin=0                            ; Set support code to 0
  396. e=LastError()                          ; get last error code
  397. if (e!=0 && e!=1213) then goto UHOH    ; Ooop.  Bye
  398. If e==1213 then a=0                    ; Not supported/failed
  399.            else XNetLogin=1            ; Supported
  400. Results=strcat(Results,CR,"NetLogin to %SecServer% ",Rslt%a%)
  401.  
  402.  
  403. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  404. ; Now we take a whack at the "NetLogout" command
  405.  
  406. LastError()                            ; Clear error codes
  407. TestNet="NetLogout"                    ; Working on NetLogout now
  408. ErrorMode(@OFF)                        ; Disable errors
  409. a=NetLogout(SecServer)                 ; Attempt logout from new server
  410. ErrorMode(@CANCEL)                     ; Re-enable errors
  411. e=LastError()                          ; get last error code
  412. XNetLogout=0                           ; Set support code to 0
  413. if (e!=0 && e!=1213) then goto UHOH    ; Ooop.  Bye
  414. If e==1213 then a=0                    ; Not supported/failed
  415.            else XNetLogout=1           ; Supported
  416. Results=strcat(Results,CR,"NetLogout from %SecServer% ",Rslt%a%)
  417.  
  418.  
  419.  
  420.  
  421. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  422. ; Now we take a whack at the "NetDetach" command
  423.  
  424. LastError()                            ; Clear error codes
  425. TestNet="NetDetach"                    ; Working on NetDetach now
  426. ErrorMode(@OFF)                        ; Disable errors
  427. a=NetDetach(SecServer)                 ; Attempt detach from non-exist server
  428. ErrorMode(@CANCEL)                     ; Re-enable errors
  429. e=LastError()                          ; get last error code
  430. XNetDetach=0                           ; Set support code to 0
  431. if (e!=0 && e!=1213) then goto UHOH    ; Ooop.  Bye
  432. If e==1213 then a=0                    ; Not supported/failed
  433.            else XNetDetach=1           ; Supported
  434. Results=strcat(Results,CR,"NetDetach from server %SecServer% ",Rslt%a%)
  435.  
  436.  
  437.  
  438. goto showinfo
  439.  
  440. :UHOH
  441. :CANCEL
  442. Message("Error %e%","Occurred near testing for %TestNet%")
  443. Results=strcat(Results,CR,"Error %e% occurred with %TestNet%")
  444. OhNo=1
  445.  
  446. :showInfo
  447. Message("Network Investigator",Results)
  448.  
  449. Support="SUPPORTED FUNCTIONS%CR%"
  450. if XNetMapRoot==  1 then Support=strcat(Support,CR,"NetMapRoot")
  451. if XNetMsgAll==   1 then Support=strcat(Support,CR,"NetMsgAll") 
  452. if XNetMsgSend==  1 then Support=strcat(Support,CR,"NetMsgSend")
  453. if XNetLogin==    1 then Support=strcat(Support,CR,"NetLogin")
  454. if XNetLogout==   1 then Support=strcat(Support,CR,"NetLogout")
  455. if XNetMemberGet==1 then Support=strcat(Support,CR,"NetMemberGet")
  456. if XNetMemberSet==1 then Support=strcat(Support,CR,"NetMemberSet")
  457. if XNetAttach==   1 then Support=strcat(Support,CR,"NetAttach")
  458. if XNetDetach==   1 then Support=strcat(Support,CR,"NetDetach")
  459. if XNetAddCon==   1 then Support=strcat(Support,CR,"NetAddCon")
  460. if XNetCancelCon==1 then Support=strcat(Support,CR,"NetCancelCon")
  461. if XNetGetCon==   1 then Support=strcat(Support,CR,"NetGetCon")
  462. if XNetBrowse==   1 then Support=strcat(Support,CR,"NetBrowse")
  463. if XNetDialog==   1 then Support=strcat(Support,CR,"NetDialog")
  464. if XNetGetCaps==  1 then Support=strcat(Support,CR,"NetGetCaps")
  465. if XNetGetUser==  1 then Support=strcat(Support,CR,"NetGetUser")
  466. Support=strcat(Support,CR,CR,"NON-SUPPORTED FUNCTIONS",CR)
  467. if XNetMapRoot==  0 then Support=strcat(Support,CR,"NetMapRoot")
  468. if XNetMsgAll==   0 then Support=strcat(Support,CR,"NetMsgAll") 
  469. if XNetMsgSend==  0 then Support=strcat(Support,CR,"NetMsgSend")
  470. if XNetLogin==    0 then Support=strcat(Support,CR,"NetLogin")
  471. if XNetLogout==   0 then Support=strcat(Support,CR,"NetLogout")
  472. if XNetMemberGet==0 then Support=strcat(Support,CR,"NetMemberGet")
  473. if XNetMemberSet==0 then Support=strcat(Support,CR,"NetMemberSet")
  474. if XNetAttach==   0 then Support=strcat(Support,CR,"NetAttach")
  475. if XNetDetach==   0 then Support=strcat(Support,CR,"NetDetach")
  476. if XNetAddCon==   0 then Support=strcat(Support,CR,"NetAddCon")
  477. if XNetCancelCon==0 then Support=strcat(Support,CR,"NetCancelCon")
  478. if XNetGetCon==   0 then Support=strcat(Support,CR,"NetGetCon")
  479. if XNetBrowse==   0 then Support=strcat(Support,CR,"NetBrowse")
  480. if XNetDialog==   0 then Support=strcat(Support,CR,"NetDialog")
  481. if XNetGetCaps==  0 then Support=strcat(Support,CR,"NetGetCaps")
  482. if XNetGetUser==  0 then Support=strcat(Support,CR,"NetGetUser")
  483. Support=strcat(Support,CR,CR,"UNTESTED FUNCTIONS",CR)
  484. if XNetMapRoot==  2 then Support=strcat(Support,CR,"NetMapRoot")
  485. if XNetMsgAll==   2 then Support=strcat(Support,CR,"NetMsgAll")
  486. if XNetMsgSend==  2 then Support=strcat(Support,CR,"NetMsgSend")
  487. if XNetLogin==    2 then Support=strcat(Support,CR,"NetLogin")
  488. if XNetLogout==   2 then Support=strcat(Support,CR,"NetLogout")
  489. if XNetMemberGet==2 then Support=strcat(Support,CR,"NetMemberGet")
  490. if XNetMemberSet==2 then Support=strcat(Support,CR,"NetMemberSet")
  491. if XNetAttach==   2 then Support=strcat(Support,CR,"NetAttach")
  492. if XNetDetach==   2 then Support=strcat(Support,CR,"NetDetach")
  493. if XNetAddCon==   2 then Support=strcat(Support,CR,"NetAddCon")
  494. if XNetCancelCon==2 then Support=strcat(Support,CR,"NetCancelCon")
  495. if XNetGetCon==   2 then Support=strcat(Support,CR,"NetGetCon")
  496. if XNetBrowse==   2 then Support=strcat(Support,CR,"NetBrowse")
  497. if XNetDialog==   2 then Support=strcat(Support,CR,"NetDialog")
  498. if XNetGetCaps==  2 then Support=strcat(Support,CR,"NetGetCaps")
  499. if XNetGetUser==  2 then Support=strcat(Support,CR,"NetGetUser")
  500.  
  501. if OhNo==0 then Message("Function support for this network installation",Support)
  502.  
  503. fp=FileOpen(RsltFile,"WRITE")
  504. FileWrite(fp,"Please mail or upload this file to:")
  505. FileWrite(fp,"Wilson WindowWare, Inc.
  506. FileWrite(fp,"2701 California SW  #212          CIS 73260,2535")
  507. FileWrite(fp,"Seattle, WA 98116                 BBS (206) 935-5198")
  508. FileWrite(fp,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
  509. FileWrite(fp," ")
  510. FileWrite(fp,Results)
  511. FileWrite(fp," ")
  512. FileWrite(fp,"_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _")
  513. if OhNo==0 then FileWrite(fp,Support)
  514. FileClose(fp)
  515.  
  516. exit
  517.